home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d6
/
tallyho.arc
/
YIELD.FCP
< prev
Wrap
Text File
|
1990-09-23
|
680b
|
61 lines
@DSPLY "This program computes"
@DSPLY "the effective rate of"
@DSPLY "interest on a savings"
@DSPLY "account or CD based on"
@DSPLY "compounded interest."
=
@NEW STEP
@GET "Principal amount"
@RIN (1)
@GET "Annual interest rate"
@RIN (2)
@GET "Number of years"
@RIN (3)
@GET "Number of periods/year"
@RIN (4)
@ROUT (2)
/100
=
/
@ROUT (4)
=
@NEW STEP
+1=
@NEW STEP
@RIN (5)
=
@NEW STEP
@ROUT (3)
*
@ROUT (4)
=
@NEW STEP
@RIN (6)
=
@NEW STEP
@ROUT (5)
@X**
@ROUT (6)
=
@NEW STEP
*
@ROUT (1)
=
@NEW STEP
-
@ROUT (1)
=
@NEW STEP
/
@ROUT (3)
=
@NEW STEP
/
@ROUT (1)
=
@NEW STEP
*100=
@NEW STEP
@DSPLY "Annual yield is"
@STOP